﻿Public Class HistorialSolicitudes_c
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        seguridad.verificapermisos()

        Dim q As New DataSet1TableAdapters.solicitudesTableAdapter
        Dim user As String = seguridad.usuarioid1
        Dim ds As New DataSet1

        'estado
        '0=pendiente
        '1=en proceso
        '2=resueltas
        Lbuserid.Text = seguridad.usuarioid1
        'Dim query As String = String.Format("  SELECT        COUNT(solicitudid) AS EXPR1 FROM            solicitudes WHERE        (usuarioid = {0})", seguridad.usuarioid1)
        'Dim conn As New Devart.Data.PostgreSql.PgSqlConnection(seguridad.conexion)
        'conn.Open()
        'Dim ejec As New Devart.Data.PostgreSql.PgSqlCommand(query, conn)
        'Dim registro As Devart.Data.PostgreSql.PgSqlDataReader = ejec.ExecuteReader
        'ASPxGridView1.DataSource = q.FillByFiltrasolicitudesporusuario(ds.solicitudes, user)
        'ASPxGridView1.DataBind()

        Lbtotalresueltas.Text = (Convert.ToString(q.ScalarQuerySaberCuantasSolicitudestieneporestadoyusuario(user, "Resueltas"))) 'sacamos cuantas solicitudes resueltas tiene
        Lbtotalpendientesolc.Text = (Convert.ToString(q.ScalarQuerySaberCuantasSolicitudestieneporestadoyusuario(user, "No procesado")))
        Lbenproceso.Text = (Convert.ToString(q.ScalarQuerySaberCuantasSolicitudestieneporestadoyusuario(user, "En proceso")))
        Lbtotalsolicitudes.Text = Convert.ToString(q.ScalarQueryTOtalSolicitudesporusuario22(user)) 'sacamos cuantas solicitudes ha hecho
    End Sub

End Class